Private Sub Workbook_Open()
Sheets(1).Activate
End Sub
          1   Workbook
------------------------------------------------------------------